home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / examples.arc / EXAMPL33.PRO < prev    next >
Encoding:
Text File  |  1986-10-07  |  816 b   |  24 lines
  1. /* Program 33 */
  2. /*
  3.   NOTE:  all graphics programs are in white on a
  4.   black(blue) background. If you don't like this
  5.   combination it can easily be changed.  You can
  6.   change the parameters to the 'graphics'
  7.   predicate, or you can change the drawing
  8.   color. Read page 92 and try some combinations
  9.   of parameters. For example: graphics(1,5,17)
  10.   on a CGA will give you pink letters and a
  11.   white line on a blue background. Other systems
  12.   give different colors. Just explore.
  13. */
  14.  
  15. goal
  16.     makewindow(1,7,7,"graphics",0,0,25,80),
  17.     write("Before graphics\nPress any key to continue"),readchar(_),
  18.     graphics(1,1,0),
  19.     line(4000,4000,10000,20000,7),
  20.     write("ordinary write during graphics mode\nPress any key to continue"),
  21.     readchar(_),
  22.     text,
  23.     write("\nAfter graphics").
  24.